# 1 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
;TROSY 15N, with extra gradient for T1 noise suppression

;optimization of water flip back:
;insert values for flip up in (sp1,ph16,ph17,ph18,ph19)
;optimize watergate with gs (sp2,ph26)

;K. Pervushin et al, PNAS, 94, 12366 (1997)
# 9 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
;pl1   : power for 1H
;pl2   : power for 13C
;pl3   : power for 15N

;sp1   : water flipback power flip up
;sp2   : water flipback power in watergate
;spnam1: gauss128_5
;spnam2: gauss128_5

;p1    : 90 degree hard pulse 1H
;p3    : 90 degree hard pulse 13C
;p4    : 180 degree hard pulse 13C (225d for 5/600)
;p5    : 90 degree hard pulse 15N
;p11   : water flipback pulse (1.5m)
# 25 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
;p21   : 500u (Gradient in first INEPT)
;p22   : 500u (Gradient in second INEPT)
;p23   : 900u (Gradient in watergate)
;p24   : 800u (T1 noise suppression)
;gpz1  : 19%
;gpz2  : 15%
;gpz3  : 32%
;gpz4  : 80%


;d1    : relaxation delay
;d2    : INEPT delay (~2.7ms)
;in0   : 1/(2 SW) (Hz)
# 39 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
define delay INEPT1
define delay INEPT2
define delay INEPT3

# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (07/12/14)
;
;$CLASS=HighRes Incl
;$COMMENT=

# 165 "/opt/topspin/exp/stan/nmr/lists/pp/Avance.incl"
;$Id: Avance3.incl,v 1.9 2009/07/02 16:40:43 ber Exp $
# 43 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy" 2

# 1 "/opt/topspin/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad2.incl  -  include file for Gradient Spectroscopy
;   for 1
;
;avance-version (07/01/17)
;
;$CLASS=HighRes Incl
;$COMMENT=

# 27 "/opt/topspin/exp/stan/nmr/lists/pp/Grad.incl"
define list<gradient> EA=<EA>


# 31 "/opt/topspin/exp/stan/nmr/lists/pp/Grad.incl"
;$Id: Grad2.incl,v 1.13 2009/07/02 16:40:43 ber Exp $
# 44 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy" 2


# 51 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
"p2=2*p1"
"p6=2*p5"

"in0=inf1/2"

"d0=in0/2-(p3*2 + 1.5u)"
"INEPT1=d2-(p21+p11+210u)-10u"
"INEPT2=d2-(p22+p11+210u)-10u"
"INEPT3=d2-(p23+p11+210u)-10u-30u"
# 61 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
"l2 = 1"


# 1 "mc_line 65 file /opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
define loopcounter ST1CNT
"ST1CNT = td1 /(2)"
"MCWRK = 0.125000*1m"
"MCREST = 1m - 1m"

    dccorr
# 65 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
# 65 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
1  10u ze
# 1 "mc_line 65 file /opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy exp. def. of mc cmd. after ze"
# 66 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
# 1 "mc_line 66 file /opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy exp. start label for mc cmd."
2 MCWRK  * 3
LBLSTS1, MCWRK  * 4
LBLF1, MCWRK
  MCREST
# 67 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
   20u setnmr3^0
   d1
   20u setnmr3|0
   20u pl1:f1 
   20u pl2:f2
   20u pl3:f3 
   10u setnmr0|34|32|33 ctrlgrad 0
;----------------------------------------first INEPT
   10u
   (p1 ph20):f1
   10u
   (p11:sp1 ph18:r):f1
   10u p21:gp1 200u
   INEPT1 pl1:f1
   (center(p2 ph21):f1 (p6 ph20):f3) 
   10u p21:gp1 200u
   INEPT1
   (p11:sp1 ph19:r):f1
   5u 
   5u pl1:f1
   (p1 ph23):f1
;---------------------------------Detergent filter
   10u p24:gp4 200u
;----------------------------------------15N evolution
if "l2 %2 == 1" goto 31
   (p5 ph2):f3
goto 32
31 (p5 ph1):f3
32 d0
   (p3 ph23 1.5u p4 ph20 1.5u p3 ph23):f2
   d0
;----------------------------------------second INEPT
   (p1 ph10):f1
   10u
   (p11:sp1 ph17:r):f1
   10u p22:gp2 200u
   INEPT2 pl1:f1
   (center(p2 ph20):f1 (p6 ph20):f3)
   10u p22:gp2 200u
   INEPT2
   (p11:sp1 ph16:r):f1 
   5u 
   5u pl1:f1 
   (center(p1 ph20):f1 (p5 ph10):f3)
;----------------------------------------WATERGATE
   10u p23:gp3 200u
   INEPT3
   30u
   (p11:sp2 ph26:r):f1
   5u 
   5u pl1:f1 
   (center(p2 ph20):f1 (p6 ph20):f3)
   10u 
   (p11:sp2 ph26:r):f1  
   10u p23:gp3 200u
   INEPT3
   30u setnmr0^34^32^33 ctrlgrad 7
   (p5 ph11):f3
;----------------------------------------acquisition
   go=2 ph31 
# 1 "mc_line 127 file /opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy exp. mc cmd. in line"
  MCWRK  wr #0 if #0 zd ip10*2  MCWRK  ip17*2  MCWRK  iu2
  lo to LBLSTS1 times 2
  MCWRK id0  MCWRK  ip1*2  MCWRK  ip2*2  MCWRK  ip31*2
  lo to LBLF1 times ST1CNT
  MCWRK
# 128 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
10u do:f1
10u do:f2
10u do:f3
10u setnmr3^0
exit

ph2 =1 2 3 0
ph1 =1 0 3 2
ph31=1 2 3 0
ph10=1 
ph11=0 

# 141 "/opt/topspin/exp/stan/nmr/lists/pp/BZ_2D_NH_trosy"
ph16=0
ph17=3
ph18=2
ph19=3

ph20=0
ph21=1
ph22=2
ph23=3

ph26=2
